COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	VARIABLE /PX3,/PX4,/PFM
C00003 ENDMK
C⊗;
VARIABLE /PX3,/PX4,/PFM;
INSTRUMENT GENRL;
OSCIL[10](P4*PX4,10*MAG/P2,P5);
COSCIL(U1,PX3+P3*MAG,P6);
OUTA←OUTA+U2;
END;

INSTRUMENT ENVLP;
PX4 ← OSCIL[10](P4,10*MAG/P3,P5); <P3 = DURATION OF LONG ENVELOPE
END;

INSTRUMENT PITCH;    <P6 = PITCH CHANGE FACTOR.
PX3 ← OSCIL(PFM,MAG*P3,P5); <P3 = DURATION OF PITCH-CHANGE FUNCTION.
END;

INSTRUMENT FM;
PFM ← INTRP(P5*P7*MAG,P6*P7*MAG,P8);
END;

SEG(F6);0 0 1 100;
PX4←1; PX3←0;  
<PLAY; GENRL 0 .5 A 1000 F1 F3;
<GENRL .5;
<PITCH .5 .5 .5 0 F2 A;FINI;